home *** CD-ROM | disk | FTP | other *** search
/ HamCall (April 1991) / HAMCALL CD-ROM (Buckmaster)(April 1991).BIN / telcom / qmodem / qmml6.scr < prev    next >
Text File  |  1989-02-20  |  7KB  |  264 lines
  1.  
  2. TURNON   8_BIT            ;This series of entries sets up the
  3. TURNOFF  LINEFEED         ;Qmodem operating environment.
  4. TURNOFF  XON/XOFF
  5. TURNOFF  NOISE
  6. TURNOFF  MUSIC
  7. TURNON   SCROLL
  8. TURNOFF  PRINT
  9. TURNOFF  ECHO
  10. ;
  11.                           ;The string command sets text strings to
  12.                           ;be used as variables in the script.
  13. ;
  14. String   QWKFILE REPFILE QWKPATH REPPATH DOOR XFER QPATH FNAME LNAME
  15.  
  16. ASSIGN   QWKFILE   QMODEM.QWK        ; Enter the name of QWK file for system
  17. ASSIGN   REPFILE   QMODEM.REP        ; Enter the name of REP file for system
  18. ASSIGN   QWKPATH   Z:\QMAIL\         ; Enter DRIVE:\PATH to DOWNLOAD directory
  19. ASSIGN   REPPATH   Z:\QMAIL\         ; Enter DRIVE:\PATH to UPLOAD directory
  20. ASSIGN   DOOR      7                 ; Enter the number of System QwikMail Door
  21. ASSIGN   XFER      F                 ; Enter the letter of the Protocol to use
  22. ASSIGN   QPATH     Z:\QMAIL\         ; Enter the DRIVE:PATH to your reader
  23. ASSIGN   FNAME     JOE               ; Enter your first name
  24. ASSIGN   LNAME     BLOW              ; Enter your last name
  25. ;
  26.  
  27.  
  28. TimeOut  240      ; Set WAITFOR timeout to 240 seconds
  29.  
  30.  
  31. WHEN
  32. WHEN     "Press (Enter) to continue?"       "^M"
  33. WHEN     "graphics (Enter)=no?"             "y Q^M"
  34. WHEN     "What is your first name?"         "$FNAME $LNAME $PASSWORD^M"
  35. WHEN     "More (Y), (N), (NS)"              "N^M"
  36. WHEN     "Enter Language #"                 "^M"
  37. WHEN     "Conference members (Enter)=no?"   "^M"
  38. WHEN     "(H)elp, More?"                    "N^M"
  39. WHEN     "Since 'Last Read' (Enter)=yes?"   option
  40.  
  41. WAITFOR "Command" dump
  42.  
  43. option:
  44.         GETSCR
  45.         CLRSCR
  46.         COLORBG 1
  47.         COLORFG 14
  48.         BOX 17,2,67,10
  49.         CLRSCR
  50.         DISPLAYLN  "     You are logged on do you wish to.....  "
  51.         DISPLAYLN  "   -----------------------------------------"
  52.         DISPLAYLN  "         A) Continue on to the Main Menu"
  53.         DISPLAYLN  "         B) DOWNLOAD Messages Only......"
  54.         DISPLAYLN  "         C) UPLOAD Messages Only........"
  55.         DISPLAYLN  "         D) Do both UPLOAD and DOWNLOADs"
  56.         DISPLAY    "       > "
  57.         COLORBG 0
  58.         COLORFG 3
  59.  
  60.                 choice:
  61.                 INKEY 8
  62.                 IF "$8" = "a" on
  63.                 IF "$8" = "b" startc
  64.                 IF "$8" = "c" startd
  65.                 IF "$8" = "d" start
  66.                 IF "$8" < "a" choice
  67.                 IF "$8" > "d" choice
  68.                      
  69.                      
  70.                      on:
  71.                      CLRSCR
  72.                      PUTSCR
  73.                      SEND "^M"
  74.                      WHEN
  75.                      WHEN "Press"  "^M"
  76.                      WAITFOR "Command"  dump
  77.                      EXIT
  78.                
  79.  
  80.  
  81. start:
  82.   CLRSCR
  83.   PUTSCR
  84.   SEND "n^M"
  85.   WAITFOR  "Command?" dump
  86.   DELAY    100
  87.   SEND     "OPEN $DOOR^M"
  88.  
  89.   WHEN
  90.   WHEN "you *MUST* begin by" config
  91.   WAITFOR  "Command?" dump
  92.   DELAY    100
  93.   GOTO reDOWNLOAD
  94.  
  95.  
  96. ReDOWNLOAD:
  97.   SEND     "D^M"
  98.   WHEN
  99.   WHEN     "nothing was found"  DoRepsNow
  100.   WAITFOR  "receive this packet (Y or N)?"  dump
  101.   DELAY    100
  102.   SEND     "Y^M"
  103.  
  104.   WAITFOR  "transfer of"
  105.   WAITFOR  "$QWKFILE" dump
  106.   DELAY    300
  107.   SEND     "^M"
  108.  
  109.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  110.   IF       $SUCCESS  DoRepsNow
  111.   GOTO     ReDOWNLOAD
  112.  
  113.   UpSection:
  114.   WAITFOR  "Command?"  dump
  115.   DELAY    100
  116.  
  117.   DoRepsNow:
  118.   WHEN
  119.   EXIST    $QPATH$REPFILE  SendEm
  120.   GOTO     AllDone
  121.  
  122. SendEm:
  123.   DELAY    1000
  124.   SEND     "^M"
  125.   WAITFOR  "Command?"  dump
  126.   SEND     "U^M"
  127.   DELAY    100
  128.   WAITFOR  "Ready to receive" dump
  129.   WAITFOR  "$REPFILE"  dump
  130.   PAUSE    1000
  131.   UPLOAD   $XFER $QPATH$REPFILE
  132.   IF       $FAIL  UpSection
  133.   DOS      "copy $QPATH$REPFILE $QPATHlatest.rep"
  134.   DOS      "del $QPATH$REPFILE"
  135.   GOTO     AllDone
  136.  
  137. startc:
  138.   CLRSCR
  139.   PUTSCR
  140.   SEND "n^M"
  141.   WAITFOR  "Command?" dump
  142.   DELAY    100
  143.   SEND     "OPEN $DOOR^M"
  144.   dagain:
  145.   WHEN
  146.   WHEN "you *MUST* begin by" config
  147.   WAITFOR  "Command?" dump
  148.   DELAY    100
  149.   GOTO DNLDONLY
  150.  
  151.  
  152. DNLDONLY:
  153.   SEND     "D^M"
  154.   WHEN
  155.   WHEN     "nothing was found"  Alldone
  156.   WAITFOR  "receive this packet (Y or N)?"  dump
  157.   DELAY    100
  158.   SEND     "Y^M"
  159.  
  160.   WAITFOR  "transfer of"
  161.   WAITFOR  "$QWKFILE"
  162.   DELAY    200
  163.   SEND     "^M"
  164.  
  165.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  166.   IF       $SUCCESS  Alldone
  167.   GOTO     dagain
  168.  
  169. Startd:
  170.   CLRSCR
  171.   PUTSCR
  172.   SEND "n^M"
  173.   WAITFOR  "Command?" dump
  174.   DELAY    100
  175.   SEND     "OPEN $DOOR^M"
  176.   WHEN
  177.   WHEN "you *MUST* begin by" config
  178.   WAITFOR  "Command?" dump
  179.   DELAY    100
  180.   GOTO uponly
  181.   uponly:
  182.   WHEN
  183.   EXIST    $QPATH$REPFILE  Sendthem
  184.   SEND  "^M"
  185.   GOTO     AllDone
  186.  
  187. Sendthem:
  188.   SEND     "U^M"
  189.   DELAY    100
  190.   WAITFOR  "Ready to receive" dump
  191.   WAITFOR  "$REPFILE"  dump
  192.   PAUSE    1000
  193.   UPLOAD   $XFER $QPATH$REPFILE
  194.   IF       $FAIL  Uponly
  195.   DOS      "copy $QPATH$REPFILE $QPATHlatest.rep"
  196.   DOS      "del $QPATH$REPFILE"
  197.  
  198. AllDone:
  199.   WAITFOR  "Command?"  dump
  200.  
  201.         GETSCR
  202.         CLRSCR
  203.         COLORBG 1
  204.         COLORFG 14
  205.         BOX 22,2,62,8
  206.         CLRSCR
  207.         DISPLAYLN  "             Select Option"
  208.         DISPLAYLN  "           -------------------"
  209.         DISPLAYLN  "       A) Log off now (Goodbye)"
  210.         DISPLAYLN  "       B) Return to the BBS."
  211.         DISPLAY    "     > "
  212.         COLORBG 0
  213.         COLORFG 3
  214.  
  215.          blewit:
  216.                 INKEY 9
  217.                 IF "$9" < "a" blewit
  218.                 IF "$9" > "b" blewit
  219.                 IF "$9" = "a" end
  220.                 IF "$9" = "b" quit
  221.  
  222.  
  223.                 quit:
  224.                       CLRSCR
  225.                       PUTSCR
  226.                       SEND   "q^M"
  227.                       DOS    "Copy $QWKPATH$QWKFILE $QPATH$QWKFILE"
  228.                       DOS    "Copy $QWKPATH$QWKFILE $QWKPATHqwik.qwk"
  229.                       DOS    "Del $QWKPATH$QWKFILE"
  230.                       EXIT
  231.  
  232. end:
  233.   CLRSCR
  234.   PUTSCR
  235.   PAUSE    1000
  236.   SEND     "G^M"
  237.   PAUSE    2000
  238.   HANGUP
  239.   DOS      "Copy $QWKPATH$QWKFILE $QPATH$QWKFILE"
  240.   DOS      "Copy $QWKPATH$QWKFILE $QWKPATHqwik.qwk"
  241.   DOS      "Del $QWKPATH$QWKFILE"
  242.   EXIT
  243.  
  244. Dump:
  245.   HANGUP
  246.   EXIT
  247.  
  248. config:
  249.         GETSCR
  250.         CLRSCR
  251.         COLORBG 7
  252.         COLORFG 4
  253.         BOX 10,2,70,7
  254.         CLRSCR
  255.         DISPLAYLN  "        Your must first configure your Qmail Packet"
  256.         DISPLAYLN  "      Please configure your packet before leaving Qmail"
  257.         DISPLAYLN  "              Script will end in 10 seconds     "
  258.         DELAY 10000
  259.         COLORBG 0
  260.         COLORFG 14
  261.         CLRSCR
  262.         PUTSCR
  263.         EXIT
  264.